home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / freeres / rst1frm3.pas < prev    next >
Pascal/Delphi Source File  |  1995-12-22  |  4KB  |  174 lines
  1. unit Rst1frm3;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, Tabs;
  8.  
  9. type
  10.   TForm3 = class(TForm)
  11.     Panel1: TPanel;
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Notebook1: TNotebook;
  15.     Edit1: TEdit;
  16.     Edit2: TEdit;
  17.     Edit3: TEdit;
  18.     Edit4: TEdit;
  19.     Edit5: TEdit;
  20.     Edit6: TEdit;
  21.     Edit7: TEdit;
  22.     Edit8: TEdit;
  23.     Edit9: TEdit;
  24.     Edit10: TEdit;
  25.     Edit11: TEdit;
  26.     Edit12: TEdit;
  27.     Edit13: TEdit;
  28.     Edit14: TEdit;
  29.     Edit15: TEdit;
  30.     Edit16: TEdit;
  31.     Edit17: TEdit;
  32.     Edit18: TEdit;
  33.     Edit19: TEdit;
  34.     Edit20: TEdit;
  35.     Edit21: TEdit;
  36.     Button3: TButton;
  37.     Button4: TButton;
  38.     Button5: TButton;
  39.     Button6: TButton;
  40.     Button7: TButton;
  41.     Button8: TButton;
  42.     Button9: TButton;
  43.     Button10: TButton;
  44.     Button11: TButton;
  45.     Button12: TButton;
  46.     Button13: TButton;
  47.     Button14: TButton;
  48.     Button15: TButton;
  49.     Button16: TButton;
  50.     Button17: TButton;
  51.     Button18: TButton;
  52.     Button19: TButton;
  53.     Button20: TButton;
  54.     Button21: TButton;
  55.     Button22: TButton;
  56.     CheckBox1: TCheckBox;
  57.     CheckBox2: TCheckBox;
  58.     CheckBox3: TCheckBox;
  59.     CheckBox4: TCheckBox;
  60.     CheckBox5: TCheckBox;
  61.     CheckBox6: TCheckBox;
  62.     CheckBox7: TCheckBox;
  63.     CheckBox8: TCheckBox;
  64.     CheckBox9: TCheckBox;
  65.     CheckBox10: TCheckBox;
  66.     CheckBox11: TCheckBox;
  67.     CheckBox12: TCheckBox;
  68.     CheckBox13: TCheckBox;
  69.     CheckBox14: TCheckBox;
  70.     CheckBox15: TCheckBox;
  71.     CheckBox16: TCheckBox;
  72.     CheckBox17: TCheckBox;
  73.     CheckBox18: TCheckBox;
  74.     CheckBox19: TCheckBox;
  75.     CheckBox20: TCheckBox;
  76.     CheckBox21: TCheckBox;
  77.     CheckBox22: TCheckBox;
  78.     CheckBox23: TCheckBox;
  79.     CheckBox24: TCheckBox;
  80.     CheckBox25: TCheckBox;
  81.     CheckBox26: TCheckBox;
  82.     CheckBox27: TCheckBox;
  83.     CheckBox28: TCheckBox;
  84.     CheckBox29: TCheckBox;
  85.     CheckBox30: TCheckBox;
  86.     CheckBox31: TCheckBox;
  87.     CheckBox32: TCheckBox;
  88.     CheckBox33: TCheckBox;
  89.     CheckBox34: TCheckBox;
  90.     CheckBox35: TCheckBox;
  91.     CheckBox36: TCheckBox;
  92.     CheckBox37: TCheckBox;
  93.     CheckBox38: TCheckBox;
  94.     CheckBox39: TCheckBox;
  95.     CheckBox40: TCheckBox;
  96.     CheckBox41: TCheckBox;
  97.     CheckBox42: TCheckBox;
  98.     CheckBox43: TCheckBox;
  99.     CheckBox44: TCheckBox;
  100.     ComboBox1: TComboBox;
  101.     ComboBox2: TComboBox;
  102.     ComboBox3: TComboBox;
  103.     ComboBox4: TComboBox;
  104.     ComboBox5: TComboBox;
  105.     ComboBox6: TComboBox;
  106.     ComboBox7: TComboBox;
  107.     ComboBox8: TComboBox;
  108.     ComboBox9: TComboBox;
  109.     ComboBox10: TComboBox;
  110.     ComboBox11: TComboBox;
  111.     ComboBox12: TComboBox;
  112.     ComboBox13: TComboBox;
  113.     ComboBox14: TComboBox;
  114.     TabSet1: TTabSet;
  115.     procedure Button1Click(Sender: TObject);
  116.     procedure Button2Click(Sender: TObject);
  117.     procedure TabSet1Change(Sender: TObject; NewTab: Integer;
  118.       var AllowChange: Boolean);
  119.     procedure FormCreate(Sender: TObject);
  120.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  121.   private
  122.     { Private declarations }
  123.   public
  124.     { Public declarations }
  125.   end;
  126.  
  127. var
  128.   Form3: TForm3;
  129.  
  130. implementation
  131.  
  132. {$R *.DFM}
  133.  
  134. uses rst1frm2, rst1frm4;
  135.  
  136. procedure TForm3.Button1Click(Sender: TObject);
  137. begin
  138.   Form2.Height := Height;
  139.   Form2.Width := Width;
  140.   Form2.Left := Left;
  141.   Form2.Top := Top;
  142.   Form2.Show;
  143.   Hide;
  144. end;
  145.  
  146. procedure TForm3.Button2Click(Sender: TObject);
  147. begin
  148.   Form4.Height := Height;
  149.   Form3.Width := Width;
  150.   Form4.Left := Left;
  151.   Form4.Top := Top;
  152.   Form4.Show;
  153.   Hide;
  154. end;
  155.  
  156. procedure TForm3.TabSet1Change(Sender: TObject; NewTab: Integer;
  157.   var AllowChange: Boolean);
  158. begin
  159.   Notebook1.PageIndex := NewTab;
  160. end;
  161.  
  162. procedure TForm3.FormCreate(Sender: TObject);
  163. begin
  164.   TabSet1.TabIndex := 0;
  165.   Notebook1.PageIndex := 0;
  166. end;
  167.  
  168. procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
  169. begin
  170.   Application.Terminate;
  171. end;
  172.  
  173. end.
  174.